/$ Mbot-set methods
on_newcmd(){
}
on_currcmd(){
}

on_set(){
string str;
pointer out;

str=Cgetcontent(currcmd) + "ARM" + " " + Cgetcontent(newcmd) + "\r\n";

out=malloct(strlen(str)+1, "c");
strtoc(str, out);
sersenda(out, strlen(str)+1);
free(out);
}

messageloop(){
int e;
while(1){
e=event(1);
if(Cevent(currcmd,e)) on_currcmd();
else if(Cevent(newcmd,e)) on_newcmd();
else if(Cevent(set,e)) on_set();
else if(Cevent(done,e)) break;
}
}